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File specification matching 


D-DIRECTORY: initialize eute name block fi 

CTORY, wildcard ones crf nv intr erecose 
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H-FIL Leh ile name en “persion 
H"DIR CTORY, “natch 1 
RMINATE ron , test for scan termination 
ARSE_DIRECTORY, parse directory into components 
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v03-001 MLJ0085 Martin L. jack. 30-Mar-1982 13:40 
Modi ty MATCH to sueld setti ng a wild directory bit past the 
number of {firectocy Covels tha 


t actually exist in the 
related file speci 


cation. 
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MATCH File specification matchin 15-SEP-1984 23:37:1 AX/VMS Macro v04-00 P 
| lacro 
v04-000 ° ——— 338 — SREIMAYCH.MAR: 1 —* 
1 «TITLE MATCH File specificati tchi 
* Ton *v04-000' ROE Te MME: 
0 : 5 enognncnadeonseeseoneqnsnesensnqneseonsepnnenoeedsonsenseesaanenonessenneeee 
3* 
09 5 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY : 
0 8 3* DIGITAL Set pe EORPORATION, MAYNARD, MASSACHUSETTS. * 
8 1% :* ALL RIGHTS RESERVED. * 
J 
8 11 ;* THIS SOFTWARE IS A ge | UNDER A LICENSE AND MAY BE USED AND opieo * 
90 3 3* ONLY IN . mw NCE WITH THE TERMS OF SUCH 5 AND WITH THE * 
+ 13 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS Soft ARE OR ANY ene * 
00 14 ;* COPIES THEREOF * vee BE PROVIDED OR OTHERWISE MADE AVAILABLE TO AN * 
0000 15 ;* OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOF TWARE IS HEREBY * 
88 8 3 TRANSFERRED. * 
3 * 
0000 18 3* pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
888 3 CORPORATION. * 
3 * 
0000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 4 
900038 is : 
88 PSE RR TEE IE Ye pee 
0000 8 3+ 
—— — 
88 93 Me up/Restore 
0000 ; 3; ABSTRACT 
88 This module contains file specification matching routines. 
0000 5 : ENVIRONMENT: 
0000 6; VAX/VMS user mode. 
0000 7: 
0000 8 ; 
0000 9 ;-- 
44 40 ; 
000 41 ; AUTHOR: M. Jack, CREATION DATE: — 
888 8 With acknowledgment to Goldstein and Halvorsen for the pieces. 
9000 44 : 
8 4 3; MODIFIED BY: 
609 47: v03-002 MLJ0104 artin L. Jack, 25-Jan-1983 15:02 
000 48 ; Modify MATCH DIRECTORY to return a bit indicating that the 
80 49; terminator contains wildcards, as part of the support for 
0; guecynecemty directory Scanning and a bit indicating that the 
0 2 terminator as part of he support for more selective 
0 § : directory —2 
4 ; 
: ; ; 


N 4 
File specification matchin 15-SEP-1984 23:37:1 AX/VMS Macro v04-00 Pa 
. . Paes et 3333 BACKUP. SRC JMATCH.MAR; 1 — db 
v02-007 mLJ0077 Martin b. Jack, 8-Feb-1982 15:11 
Implement negative version numbers. 
v02-006 MLJ0063 Martin L. Jack, 11-Dec-1981 14:41 


SOOO COCOCOSOSOSOOSOOOOOOSOOOOOOoOo 


SOCOSCSCOCOOCOOSCOSCSOOSOOOOOOOOoOSoSoSo 
2—2——————— 
COOCCOCCOCOCOOOCOCOOOOOOOOOOoOoO 


Support output UIC wildcarding by inserting a comma in the 
related filename string if the selection file specification 
is in UIC format. Modify version number selection so that 
negative pattern versions are accepted and always match. 

Have INIT_NAMEBLOCK use expanded string if resultant is null. 


v02-005 MLJ0054 Martin L. Jack 585633 16:24 
Correct problem with leading [600000] in candidate directory. 
Modify calling sequence for MATCH_DIRECTORY to allow long 


filenames. 
v02-004 MLJ0036 Martin L. Jack, 28-Aug-1981 16:58 

Extensive rewriting for reel restart and early scan termination. 
v02-003 mLJ0025 Martin L. Jack, 8-May-1981 13:42 

Implement Latest version selection. 
v02-002 MLJ0022 Martin L. Jack, 21-Apr-1981 13:54 

Convert directory wildcarding to use RMS. 
v02-001 MLJ0010 Martin L. Jack, 25-Mar-1981 14:04 

RSE_FAST DIR. Correct problems 


Add routines —J and PA 


with (000000. and the Like as Selecfion filespec. 


SNAMDEF 
-PSECT CODE,EXE,NOWRT 


— — 
a0 
w 
oO 
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in 15SEP=1984 23:37:13 VAX/VMS Macro v06-00 J 
n ⏑ —⏑— oer 3, 


-SBTTL INIT NAMEBLOCK, initialize extended name block fields 


ma 
@w-. 
<-> 
o- 
aon 


+ 
aa 


Functional Description: 
This routine initializes the name block descriptors for device, 
directory, etc. after BACKUP has constructed a resultant or expanded 
string in a mame block. The technique used is to scan the lh | for 
terminators since BACKUP constructs the strings in a known format. 


— Sequence: 
ALLS/CALLG 


Input Parameters: 
O4(AP) = Pointer to name block. 


Implicit Inputs: | 
Resultant string descriptor in name block, if present, otherwise 
expanded string descriptor. 


22—————— 
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Output Parameters: 
none 


Implicit Outputs: : 
Device, directory, etc. descriptors in name block. 


Routines Called: 
non 


Soooooooooo 


sssssssssssssssssssssssssssssess 


BRR REESE EE SWWWWWWIIIononononononononond 2 2 2 BOO OO OCOOOOOOOO Xe 
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0 Routine Value: 
0 none 
000 
000 Signals: 
000 none 
0000 
0000 Side Effects: 
0000 none 
0000 
0000 -- 
880 
001C 0000 ENTRY INIT _NAMEBLOCK,“M<R2,R3,R4> ; 
54 O4A DO 0002 MOVL 4(APY, ; Get pointer to name block | 
53 04 A4 D0 0006 MOVL NAMSL_RSA(R4) ,R3 ; Get resultant string descriptor 
52 03 AG) 5 6664 MOVZBL NAMSB-RSL(R4) .R2 : 
12 00 3 BNEQ 5$ ; Branch if resultant present 
53 OC AS 00 001 OVL NAMSL_ESA(R4) ,R3 ; Get expanded string descriptor 
52 OB A& 9A 0014 MOVZBL NAMSB _ESL(R4),R2 : 
40 A4 3 p00 0018 5$: MOVL R3,NAMSL_NODE (R4) ; Set node address 
38 AG 355 OOIC CLRB —* NOBE (R4) ; Set node Length 
63 52 58 8F 3A AU LOCC #*a'C®R2, (R35). ; Scan for device terminator 
4 12 8 $ BNEQ . ; Branch if found k 
¢ 3A 0026 LOCC #*Aa'<* R2,(R3) i Scan for alternate terminator 
9 O2A 10$: MOVL R3,NAMSL BEV(R4) ; Set device address 
0 , 4 SUBB3 RO,R2,NAMS$B_DEV(R4) ; Set device length 
0 D MOVa RO,R ; Prune device from string 
F 3A 0036 LOCC =—-_-s @#*A" ) *, R2, (RB) ; Scan for directory terminator 
4 12 0038 BNEQ 208 : Branch if found 
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63 52 f 
LG 
SA AG 33 it 
63 
4C AG 
tf 
63 
50 AG 
3C AG 82 
4 AG 1 
D AG 0 


cation matching 15SEP-1984 
CK, initialize extended name 4-SEP-1984 

1 LOCC #*Aa">* RZ, (R3) 

1 ° 208: DECL R 

1 : INCL = R 

1 a -NAMSL BIR (R4) 

154 SuBB3 . Re. NASB. DIR(R4) 
155 mova 6 

1 : LOCC 3=—_s@*A*. * 2, (RB) 

1 MOVL. R3,NAMSL_NAME(R4) 

1 § SUBB3 oR + Rg .NARSB_NAME (RG) 
1 mova 

160 LOCC 3 =—s-_s @*A" : "RZ, (RB) 

161 MOVL Zoning TYPE (R4) 
16¢ SUBB3 RO, R2,NAMSB_TYPE(R4) 
16 MOVL »NAMSL_VER(R4) 

164 MOVE = RO, —B —4468 

165 RET 


: 3 13 es Macro V04-00 


BACKUP.SRCJMATCH.MAR; 1 


; Scan for alternate terminator 
Adjust to include terminator 


Set airectory address 

Set directory length 

Prune directory from strin 
Scan for file name terminator 
Set file name address 

Set file name length 

Prune file name from strin 
Scan for file type terminator 
Set file type pddress 


eet file version Length 
Return 
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Side Effects: 
none 


ENTRY WILD_DIRECTORY, “M<R2,R3,R4,R5,R6,R7> 
: Parse the resultant file specification to obtain the number of directories. 


ssssssssssssssssesssoossss 


dD 5 
fication matchin 15-SEP-1984 23:37:1 AX/VMS Macro v04-00 Pa 
TORY, wildcard Output director 4-§ sats 33:35:33 EBACKUP.. SREIMAYCH MAR: 1 — Ry 
D0? ! 7 -SBTTL WILD DIRECTORY, wildcard output directory processing 
007 1 3** 
007 1 : 
007 171 ; Functional Description: 
33 172 ; This routine sets up the necessary status bits in the name block for 
007 173; RMS wildcard output directory processing. If necessary, it also adds 
tae He 5 @ comma to the resultant filename string. 
0077-176 : Calling Sequence: 
10 2? 179 : Pai s/CALLG 
' . 
907 138 : Input Parameters: 
1077 180 ; bpd = Address of descriptor for selection file specification. 
fa ; 13 B(AP) = Address of name block. 
ee Ld 
0077 «183 ; Implicit Inputs: 
D077“ +84; — none ⸗ 
8 B Ou P 
D0 ; Output Parameters: 
7 $ : none 
77 : : 
77 > Implicit Guteuts: 
77 0; NAMSL_FNB contains the wildcard directory bit corresponding to the 
77 91; leftmost wild directory in the selection file specification, if any. 
77 3 3 If the selection file specification is in UIC format, a comma is 
ve +, : inserted in the resultant filename string. 
77 95 ; Routines Called: 
3 PARSE DIRECTORY 
77 ; Routine Value: 
77 : none 
77 : 
77 3 Signals: 
77 : none 
77 : 
77 $ 
77 3 
77 3 
77 3 
77 
77 
29 
79 
79 
79 
7 


— 
DOW NAAR WI MODD NEAR MOD ae 


MINNIS tt 4 QOOODOOOCOCOOCOOWO 


MOVAB =-132(SP),SP ; Make result space on stack 
5 MOVL AP), ; Point to name bloc 
MOVZBL NAMSB_RSL(R6).R :; Get resultant string descriptor 
6 MOVL —*2* RSA(R6),R 3 
O8A LOCC #*a'C? R2, (R35 ; Scan for start of directory 
F BNEQ ; Branch if found 
1 LOCC #*A'<* .R2,(R3) ; Scan for alternate syntax 
95 5$: MOVAB -=-(RO),R ; Prune beginning of string 
098 1 MOVAB 1(R1) R : ‘ 
9C § LOCC #*a')* R2,(R3) : Scan for end of directory 
Al BNEQ 7$ ; Branch if found 


—e $ 
File specification matchin 15-SEP-19 :37:1 AX/VMS Macro v04-00 P 
VILB_DERECTORY: Cildcerd ootput director ‘2-sep-19ee 93:80:09 FRACKOD. ceSmavon, oR: 1 eit” 


63 3A 9 LOCC #*Aa*>* RZ, (R53) : Scan for alternate syntax 
C a 5 7$: SUBL2 = RO,R ; Prune end of string 
4 AA § MOVL 3; Point to 
03 A BSBW =: PARSE DIRECTORY 3 Parse the directory specification 
57 t MOVZWL (SP),R 3; Get number of Levels 
9 ; Parse the selection file specification. 
3 ’ MOV = @4(AP),R ; Get selection string descriptor 
63 35 * F 6A ; LOCC ara Ee RS, (RS) : Scan for start of d vectery” 
12 ¢ 4 BNEQ : Branch if found 
63 $ ‘ ee 5 LOcc #*at<" R2,(R3) : Scan for alternate syntax 
C 5 10$:  MOVAB -(RO),R : Prune beginning of string 
33 1 Al 3 C MOVAB 1(R1) R 3 
63 D 8F OC 8 LOCC #*Aa'd* .R2,(R3) 3; Scan for end of directory 
} $3 9 BNEQ 20$ : Branch if found 
63 2g 3 OD 40 LOCC #*A'>* ,R2,(R3) : Scan for alternate syntax 
é C 0D4 41 208: SUBL2 R0,R2 ; Prune end of string 
4 E 0D7 tg MOVL SP,R4 ; Point to it 
0346 8* ei BSBW PARSE_DIRECTORY ; Parse the directory specification 
9Dp 43 ; Initialize for loop. 
56 08 AC 34 cl opp of ADDL #NAMSL _FNB,B(AP) ,R6 : Point to. NAMSL_FNB 
3; Clear 
29 6€ 10 EO OOE4 8 BBS #16, (SP) ,60$ : Branch if UlC-format directory 
4 8€ DO O0E8 250 MOVL (SPS+, > Get count of directories 
a. § do —8 MOVL #NAMSV_WILD_UFD,R5 ; Get first bit number 
443 3g : Loop over all directories searching for the leftmost one that 
43 32 3 contains a wildcard. 
57 07 bor 3$ S0s: DECL R7 : Count resultant directory levels 
1E 19 8 5 BLSS 50$ :; Br if none left to avoid setting bit 
52 43 7D OOF 58 novo (SP)+, 3; Get next directory descriptor 
2—E 6 91 OOF 89 CMPB (R3),#*A".° 3; Was it ellipsis? 
12 13 OOF8 60 BEQL 40$ 3; Branch if yes 
63 52 sn 3A OOFA 61 LOCC #*A'e" R2,(R3) : Contains asterisk? 
—“ pore $6 BNEQ 40$ 3; Branch if yes 
63 32 $2 3A 010 6 LOCC #*A'S" RZ, (R3) 3; Contains percent? 
6 12 0104 64 BNEQ 40$ ; Branch if yes 
55 * 196 65 INCL R5 : Increment bit number — 
E354 —CééF 10 $6 SOBGTR R4,30$ 3; Loop for all directories 
04 ise $ RET 3; Return 
19¢ $3 ; Here if a wildcard level is found to set the corresponding bit. 
00 66 55 F2 10¢ 71 40$: BBSS R5,(R6),50$ : Set wildcard bit 
94 50$: RET 3; Return 
111 74 ; Here if a UlC-format directory. PARSE_DIRECTORY has transformed a ‘*' in 
111 75; the group or member portion into ‘222°, so here we just test for a 
M 6 3; leading *%* in the appropriate position. 
98 66 «13 ce 111 8 0s: BBSS #NAMSV SOP FOR. (RE) 70S : Set UlC-format bit i 
08 af D 115 7 $: MOVL 7st? R 3 Point to directory string 
25 60 91 0119 28 CMPB ss (RO) , #*A*R! : Group part wild? 


fF 

File ification matchin 15-SEP-19 AX/VMS Macro v04-00 p 
WILD.DIRECTORY, wildcard output pilots 2-36-1382 1 in FONCNOS Becca VOe-oe. oer Of, 

1 80$ ; Branch if no 

£3 ; Boss @NAMSV wite, GRP, (R6), 808; Set wild gr bit 

80S: aay (RO) ,#* 3; Member gare w wild? 
i BNEQ 0$ + Branch 
E 5 BBSS #NAMSV_WILD_MBR,(R6),90$; Set wild member bit 


; Insert a comma between the group and member numbers in the related filename 
8 ; string to compensate for the fact that directory specifications are stored in 
; the save set withou comma. RMS requires the comma for proper operation of 


& PWN 2⸗ſ—2 2 


— — — — — — a ts — — sd — — — — 
— ⏑ ⏑⏑⏑— 
oO 


+ ; output VIC utlecarding. 
9% 3 $0s: INCB NAMSB_RSL-NAMSL_FNB(R6) ineroese tengek of related filename 
9A 9 mOvZBL NAMSB_RSL-NAMSL_FNB(R6), Ro Get Leng 
t 94 SUBL #5 allow for *Ennn* and INCB 
95 MOVL —9358 _FNB(R6), Re Point to related filename string 
9 MOVC3 Ore(Re) »,5(R Slide related filename string over 
30 97 move ze 2 60 : Insert a comma 
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hi 15-SEP-19 2:37:17 AX/VMS # v04 
ize selection info 2-3 set $3:35:) YOACKUP. SRE TRAYCH MAR: 1 


-SBTTL INIT _SEL_INFO, initialize selection information 


a 
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Functional Description: 
This routine generates necessary information concerning a selection 
file specification. 


epaiee Sequence: 
ALLS/CALLG 


Input Parameters: 
O4(AP) = Address of descriptor for selection file specification. 


Implicit Inputs: 
none 


Output Parameters: 

O8(AP) = Address of a quadword that receives a descriptor for the 
directory portion of the file specification. 

12(AP) = Address of a quadword that receives a descriptor for the 
name, type, and version portion of the file specification. 

16(AP) = Address of a Lenquere that receives the zero or negative 
version number if the file specification selects a latest 
version and a positive number otherwise. 


Implicit Outputs: 
none 
Routines Called: 

LIBSCVT_DTB 
Routine Value: 
none 


Signals: 
none 


Side Effects: 
none 


Sete Se Ge Se Se Se Se Se Se Ge Ge Ge Se Ge Se Ge Ge Se Ge Se Se Ge Se Se Ge Ge Ge Se Ge Se Ge Se Ge Se Se Se Ge Ge Se 


sENTRY INIT_SEL_INFO,“*M<R2,R3> 


; Parse the string into a directory string and a 
3; name, type, and version string. 


ANEW 9 ODA NEI 0 OD NOU EWN 0 OOD NA E WIN 0 OO NOUS WO 0M 


PUPP BBS BSB BB EE EE AAAI WII IAI ⏑ 9 OD 


mova Oe cae Rg : Get string descriptor 

LOCC #*a'Cl® .R2,(R3) : Scan for start of directory 

BNEQ : Branch if found 

LOCC @*at<" R2,(R3) : Scan for alternate syntax 
108: HOVAB (RO) «A : Prune beginning of string 

LOCC #*a')®R2,(R3) : Scan for end of directory 

BNEQ : Branch if f 


oun 
LOCC #*A*>* .R2,(R3) Scan for alternate syntax 


’ Ki 5 

MATCH File specification matchi 15-SEP-19 :37:1 AX/VMS Macro v04-00 p 9 

—v06-000 INIT. SEL INFO. initialize selection info 4S Pa 1986 $3:80;08 EBACKUP. SREIMAYCH MAR: 1 — (4) 

Ys 

38 ; Construct and return the two descriptors. 

208: SuBL2 R Re 
MOva . as (AP) 
R1 

MOV RO,@12(AP) 


Compute the Latest-version flag. 


MOV #1, 816(AP) 
tote onhe se ROL (RTD 


R2-R3: directory descriptor 
Set Girectory descriptor 
RO-R1: name, type, version descriptor 


Set name, type, version descriptor 


kk kt kk tk at at ws a a ⏑⏑⏑ 2⏑02 
BLAS VVVNAS TS SSSR 


2 
on 
aes 
FSS@LLIASS =—«- SSNS 


BEQL 30$ : Branch if not found 
Hj PUSHAL -(SP) ; Push address of result location 
01 ae ub tt 3 Push descriptor for version number 
00000000 ° GF ; CALLS as. gieen pre 3; Convert pattern version number 
04 f BLBC RO, 50 : Branch if conversion failed 
10 BC 2 § MOVL ($P)+,a16(AP) ; Get pattern version number 
96 77 30%: RET 3; Return 


tt BEATEN AI ET ee IE, IN ese 
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escevayenccys = 8 
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cification matchi 15-SEP-1 :37:1 AX/VMS Macro v04-00 & 1 
3 tch complete file "specification Fae ee 33:20:03 BACKUP.SRCJMATCH.MAR; 1 tg, 


-SBTTL MATCH, match complete file specification 


oe 
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Functional Description: 
This routine executes a wild card match on a candidate and pattern 
file specification. 


ening soquescs: 
ALLS/CALLG 


Input Parameters: 


CONF AP UNH OO 


Le 


9 4 (AP) = Address of descriptor for candidate file specification. 
> B(AP) = Address of descriptor for pattern file specification. 
94 ; Implicit Inputs: 
95 none 
Output Parameters: 
a8 none 
4 Implicit Outputs: 
¢ 1 none 
8 Routines Called: 
404 MATCH_DIRECTORY 
405 MATCH_F ILENAME 
is 


Routine Value: 
True if the strings match. 


— ⏑ ⏑ä ⏑⏑——— ———— ——————————— 
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4 

409 

410 ; Signals: 

M none 

ai8 Side Effects: 

4 none 

415 

837 

$13 eENTRY MATCH, “M<R2,R3> 

420 ; Parse the candidate ger tas into a directory string and a 

: 1 ; name, type, and version string. 

4 § : mova Oe ine Rg 3; Get candidate string descriptor 
424 LOCC #*a'C’ ,R2,(R3) ; Scan for start of directory 
425 BNEQ ; Branch if found 

& $ LOCC #*Aa'<" R2,(R3) : Scan for alternate syntax 

427 108: MOVAB =(RO).R ; Prune beginning of string 

4 3 MOVAB yeaa ee : 

4 LOCC @*a'y* .R2,(R3) ; Scan for end of directory 

430 BNEQ ; Branch if found 

431 LOCC @*Aa*>*,R2,(R3) ; Scan for alternate syntax 

4 § 208: PUSH ; Make directory descriptor 

4 SUBL RO,R2,-(SP) : ; 
434 PUSHAB 1(R1) > Make name, type. version descriptor 
435 PUSHAB -(RO) 3 


$5 
RitEatOcHtACaUson,tatetiOm sec srtcatton “ECRESSIORS SEIGIUS TARAS NRESRAY% Re.» P20" TI, 


1¢ 436 ; 
1¢ 437 ; Parse the pattern string ingo a directory string and a 
1 ? 3; name, type, and version string. 
¢ 1¢5 440 * MOVO @8(AP),R 3 Get pattern string descriptor 
63 35 88 1t 44 LOcc Beare RS crs) 3 Sean tor start of-d rectory 
HS 3 44 BNEQ 30$ 3; Branch if found 
63 3s 1D 44 Locc a*at<" R22, (R3) 3; Scan for git rnate syntax 
1p4 444 308:  MOVAB -(RO),A : Prune beginning of string 
33 9 A 1D 445 woyes 1(R ),R 5 
63 D &F 1 44 LOCC #*aty)* R2,(R3) ; Scan for end of directory 
2 H 3 44 BNEQ 40% ; Branch if found 
63 = $2 1 re occ #*Aa*>* R2,(R3) ; Scan for alternate syntax 
34 1E 449 40$ SH 8 3; Make directory descriptor 
— a 1E $29 UBL RO,R2,-(SP) 3 
O1A 1EC 4 PUSHAB 1(R1) ; Make name, type. version descriptor 
0 OF 3 ? § PUSHAB (RO) 5 
et : : ; Match the name, type, and version strings. 
SE DD O1F1 456° PUS p : Push pattern descriptor 
14 A fF OS 83 PUSHAB : (SP) : Push Condi dete doeer inter 
09° AF 9 4 | 176) 0 = 445 CALLS @# of OATCR FILENAME 3; Match filenames 
0B E Ate $23 BLBC RO,50$ : Branch if failed 
+4 4 ree 3; Match the directory strings. 
08 AE OF 1FD re PUSHAB 8(SP) : Push pattern descriptor 
1¢ ag oF 464 PUSHAB 28(SP) : Push candidate descriptor 
O27A°CF 0 FB 0 ree CALLS #2,W*MATCH_DIRECTORY 3; Match directories 
04 08 466 50S: RET ; Return 
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Funct tonet Description: 
This routine executes a utt¢ card match on the name, type, and version 
of a candidate and pattern file specification. If the pattern selects 
latest version, this routine assumes that the candidate file is the 
latest version, and therefore that the version matches. 


cating te tt. 


Input Parameters: 
(AP) = Address of descriptor for candidate file name, type. version. 
B(AP) = Address of descriptor for pattern file name, type, version. 


Implicit Inputs: 
none 


> Ee Pe 
Mew 0 


Output Parameters: 
none 

Implicit Outputs: 
none 


Routines Called: 
FMGSMATCH_NAME 
LIBSCVT_OTB 


Routine Value: 
True if the strings match. 


Signals: 
none 


Side Effects: 
none 


VUNNV= = = MSSSSSSSSSSSS SSS SSS SSS SS SSS SSS SSS SSS SSS SSS SSS SSS 
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3 ENTRY MATCH_F ILENAME ,“M<R2,R3,R4,R5,R6,R7,RB,RID> 
i : Parse the candidate string into a name and type string and a version string. 
18 : va @4(AP) ,R2 ; Get candidate string descriptor 
14 MOVZWL ; Truncate length to a word 
15 LOcc #°A';",R2,(R3) 3 Scan for version number 
18 BEQL 208 ; Branch if not found 
9 1 SUBL2 R0O,R2 : Ro=RS: candidate name and type 
57 O1A 18 MOVAB 1(R1),R7 + R6-R7: candidate version 
6 70 1 MOVAB =-(RO),R6 F 
; : Parse the pattern string into a name and type string and a version string. 
54 08 BC 7D : MOva @B(AP).R4 3; Get pattern string descriptor 
e xc 4 MOVZWL R4,R4 3 Truncete Length te a word 
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MATCH PILENARE: match file name, tye. w ESE} 33:39:08 Eeackur.sncimatencman:1 §=— #8" Uy 


65 * 5 pce @*a's* RG, (RS) : Scan for vereten number 
i) $ eos 3 gros’ if not found 
i . 8 RG 3; R4-R5: pattern name and type 
59 ary A ROVAB 1(R1), 9 3 RB-RO: pattern version 
58 —233: R : 
3 3; Match the file name and type. 
00000090" ¢f 18 9 ise G*F MGSMATCH_NAME ; Match name and type 
0 zs BLBC RO,208 3; Branch if failed 
4 + The match succeeded. Now the version numbers must be matched. 
$8 3 4 3 TSTL 3; Pattern Sty null? 
4 BEQL 10$ 3; Branch i 
2A 9 3 4 40 CMPB (RO) ,#*A'e" 3 eas og Fe pattern version? 
1 4 41 BEQL 10$ 3 Branch 
of 48 g PUSHAL ak top 3; Push aderexs vot result location 
— > 2 4D 4 mova #865 : Push descripto 
00000000 ' GF 4 5 44 CALLS # 344 —B _DTB : Convert pattern version number 
1506 45 BLBC 3; Branch if conversion failed 
58 9 A 46 VL C3é3*, RB : Get pattern version 
1 D 4 BLEG 1 3; Branch if explicit zero or negative 
7€ 3 SF $8 PUSHAL =(SP) 3; Push address of result location 
"m6 CS 61 4 mova —4.3 3; Push descriptor 
00000000 ' GF 44 64 50 CALLS @ — : Convert candidate version number 
E 68 51 BLBC RO,20 : Branch if conversion failed 
D4 6 26 CLRL 3; Assume failure return 
58 BF D1 7 5 CMPL (SP)+,R8 ; Compare versions 
13 7 54 BEQL 1 ; Branch if versions equal 
04 027 55 RET 3; Return failure 
50 01 pO 0 8 228 10$: MOVL #1,R0 3; Set success status 
04 027 57 20S: RET 3; Return 
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Functional Description: 
This routine executes a wild card marc on the directory 
of a candidate and pattern file specification. 


Calling Sequence: 
Pail s/CALLG 
Input Parameters: 
(AP) = Address of descriptor for candidate directory. 
8(AP) = Address of descriptor for pattern directory. 


OCAP) = Optional address of descriptor for pattern 
name, type, and version. 
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Implicit Inputs: 
none 


Routines Called: 
FMGSMATCH_NAME 
LIBSCVT_DTB6 
PARSE_DIRECTORY 


Routine Value: 
Bit 0: Set if the directory Str tage match. 
Bit 1: Set if the directory must be scanned. 
Bit 2: Set if the terminator contains wildcards. 
Bit 3: Set if the terminator is ‘'*’’ or equivalent. 


7A 78 
7A 79 ; Output Parameters: 
7A ? 12¢(AP) = Optional geerens of descriptor to receive terminator file 
name and type. 
¢ 16(AP) = Optional address of word to receive terminator file version 
number. 
5 ; Implicit Outputs: 
6 none 
7 
8 
9 
0 


0000 0000000000000 Co CD CD CD 
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0 9 
0 9 Signals: 
027A 0 none 
O27A 0 
7A 3 Side Effects: 
7A none 
7A = 604 
7A 605 ;-- 
24 8 
O3FC 7A = 60 sENTRY MATCH DIRECTORY, “M<R2,R3,R4,R5,R6,R7,.RB,RI> 
SE FF3B CE 9E 4s one MOVAB -200(SP),SP ; Make directory parse space on stack 
: oi9 3; Parse the candidate directory string. 
52 04 7D 1 616 MOVa @4(AP) ,R2 : Get candidate string descriptor 
3¢ $C >. oe MOVZWL R2,R2 ; Truncate length to a word 
4 4 8 614 MOVL PRS ; Point to result area. 
019 615 BSBW PARSE_DIRECTORY ; Parse the specification 
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File specification matchin 15-SEP-1984 23:37:1 AX/VMS Macro V04- Pa 
MATCH DIRECTORY, match directories —— 33 — SREIMAYCH.MAR: 1 net 
3843 
; Parse the pattern directory string. 
52 08 BS 7D 819 MOVa @8 (AP) ,R2 ; Get pattern string descriptor 
52 C 620 MOVZWL : Truncate length to a word 
54° OOK A . 95 621 MOVAB 68(SP),R4 ; Point to result area 
018 99 6 ; BSBW © PARSE_OIRECTORY ; Parse the specification 
+ — ; Set up for matching directories. 
s & — 9¢ 6 $ MOVZWL (SP),R2 : Get candidate descriptor count 
3 04 AE 9E SF 66 MOVAB 4<(SP5 ; Point to candidate string results 
4 G4AE 3C Ae 6 8 MOVZWL 68(SP) RG ; Get pattern descriptor count 
55 48 AE 9E 8 A 6 MOVAB 2(SP),R5 ; Point to first pattern descriptor 
56 67C 8 “4 ° , CLRQ R6 3; Clear saved directory count, pointer 
O2AD 6 § ; A_special matching rule applies if the pattern string directory is in 
8 AD 635 ; UIC format. Such a directory matches only if the target string 
83 directory contains six octal digits. 
3 46 AE E—9 O2AD 636 BLBC 70(SP) ,20$ : Branch if pattern not UIC format 
1 2 D1 858, 637 CMPL R2,#1 ; Exactly one directory in target? 
4 12 0284 638 BNEQ 50 3; Branch if no 
50 63 7D 0286 639 novo (R3),RO ; Get target directory descriptor 
06 50 D1 0289 640 CMPL RO, #6 : Six characters? 
3D ig O2BC 641 BNEQ 5 : Branch if no 
59 81 30 83 028 8 Ws: SUBB3 = #*A'O", (R1)+,R9 : Bias character by ASCII 0 
07 #59 = «91 th 64 CMPB R9 #7 ; Make sure in range 
34 1A O02C of? BGTRU 50 ; Branch if no : 
F450 =F S ogee 2 SOBGTR RO,10$ ; Loop until all examined 
asta 8 ; Handle MFD in pattern and candidate strings. 
06 65 01 Ota 649 208:  CMPL (RS),#6 : First pattern directory Length 6? 
1A 612 O2CD 650 BNEQ :; Branch if no 
0485 06 30 38 O2CF 651 SKPC #*A'O" ,#6,04(R5) : First pattern directory '000000'? 
15 12 02D4 $36 BNEQ : Branch if no 
06 63 D1 0206 65 CMPL (R3) #6 : First candidate directory length 6? 
8 12 0209 654 BNEQ ; Branch if no — 
0483 06 0 3 8g08 655 SKPC #*A'O" ,#6,04(R3) : First candidate directory '000000'? 
1¢ 135 Q2E0 656 BEQL 60$ ; Branch if 4 
54 D7 O2E2 657 30$ DECL R4 : Prune *000000° from pattern 
55 08 CO Q2E&4 658 ADDL2 #8,R5 : 
i 11 8 E?7 659 BRB 6 : Go to do full match 
06 6 D1 E9 660 40S: CMPL (R3) #6 ; First candidate directory length 6? 
10 12 O2EC 661 BNEQ ; Branch if no 
0483 06 30 38 E 236 SKPC #*A'O' ,#6,04(R3) 3; Candidate directory is ‘000000'? 
09 12 F 66 BNEQ ; Branch if no 
65 7D F 664 MOVa (R5),RO ; Get descriptor for first pattern 
OOAC 31 F8 665 45$: BRW 140$ : Branch to fail with scan 
00A6 31 8 re $66 50$: BRw 130$ 3; Branch to fa 
43 88 3; Now execute the full-scale match. 
¢ D F £50 é0s: DECL RG : Pattern exhausted? 
4 19 0 671 BLS 80$ : Branch if yes p 
50 685 030 672 MOVQ (R5)+,RO 3; Get next directory in pattern 
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MATCH DIRECTORY, match directories ———— 3 — SREIMATCH MAR; 1 * (9) 
2E 91 73 CMPB (R1),#*A".* : Check for ellipsis 
! 1¢ 3 8 BNEQ $1 3; Branch ... ‘ 
00 3 A 675 BRw 10$ 3 eee yes 
D7 D 978 61$: DECL R ; Candidate exhausted? 
19 OF 67 BLSS 45$ 3; Branch if yes 
BB i} 078 PUSHR #*M<R2,R3,R4,R5> 3; Save registers around MATCH 
3 D 1 67 MOVa RO,R4 3 Load pattern descriptor to R4-R 
63 7D 16 680 mMOVa = (R$) ,R2 : Load candidate descriptor to R2-R3 
00000000°GF 16 1 681 JSB G*EMGSMATCH_NAME 3; Check candidate against pattern 
C BA 1F 33 POPR #*M<R2,R3,RZE,R5> ; Restore registers 
53 8 £8 1 6 ADDL2 #8,R 3; Advance past descriptor 
d7 50 ~=C€E 3 ? : BLBS RO,60$ 3 Branch if match 
7 O86 ; We have detected a mismatch, or we are out of pattern string while there 
7 687 ; is input left. Back up to the Last ellipsis, advance a directory of the 
8 4 one ; input, and try again. 
56 D7 0327 690 70$: ECL Rg ; Count a directory from saved input 
7 19 0329 691 BLSS 120$ ; Branch if no saved input 
57 08 8 0328 69 ADDL2 #8,R7 ; Set to try next input directory 
52 56 D 8 —E 69 mova R6,R2 ; Restore pointers to backup point 
54 58 7D 1 694 MOVa RB ,R4 3 to retry matching 
ce Soi $ 8 BRB 60$ ; Continue testing 
0336 3 ; Here when pattern string is exhausted. 
52 DS 0336 699 80$:  TSTL  R2 : Input exhausted? 
ED 12 834 ooo BNEQ 70$ 3; Branch if no 
033A 702 ; Establish the pattern file name, type. and version specified by 
84 At 3; the fourth parameter as the terminator and return success. 
58 OF 00 033A 705 90s: MOVL #15,R8 : Establish return value 
05 6c 91 baz 706 CMPB (APS #5 ; Parameters present? 
4D fF 0340 707 BLSSU 1908 ; Branch if no b 
59 OC AC DO 0342 708 MOVL 12(AP) ,R9 ; Point to result area descriptor 
69 B84 0346 709 CLRW (R9) 3; Set no terminator 
57 05 84 710 TSTL R7 ; Ellipsis found in string? 
435. 12 O34A 711 BNEQ 100$ ; Branch if yes 
52 148C 7D 034C re MOVa @20(AP) ,R2 3; Get descriptor for specification 
52 2 HA 8 71 MOVZWL R2,R2 ; Truncate Longeh to a word 
63 52 A A 035 714 LOCC #*A'®® ,R2,(R3) ; Asterisk wildcard in string? 
9 12 83 715 BNEQ 95$ 3; Branch if foun 
63 52 5 3A 59 rig LOCC #*A°S" RZ, (R3) ; Percent wildcard in string? 
3 12 035d 71 BNEQ 95% ; Branch if found — 
58 04 CA O35F oe BICL2 4#4,R8 ; Indicate nonwild terminator string 
65 sf 91 368 719 95$: CMPB #*A'e", (R3) ; Leading gstertsh wildcard? 
3 613) «(036 720 EQL 968 ; Branch if yes 3 : 
58 8 4 3 721 BICL2 #8,R8 ; Indicate non-asterisk terminator 
63 52 A 6A 7 ¢ 96$: LOCC #*A's* RZ, (R3) ; Scan for version number 
1F O13 6 7 BEQL 100$ ; Branch if not found 
Sw te Gr 724 SUBL2 RO,R2 3 R2-R5: name and type ; 
9° DD 7? 725 PUSHL #0 ; Create and clear result location 
—E oD 7 7 $ PUSHL SP : Push address of result location 
01 Al = OF 7? 7? PUSHAB 1(R1) ; Push address of version number 
4 oF 7A = 728 PUSHAB =(RO) ; Push length of version number 
00000000'GF 0 FB 7¢) = 729 CALLS #3,G*LIBSCVT_DTB ; Convert version number 
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_v04-000 MATCH _DIRECTORY BACKUP. SRC JMATCH.MAR; 1 (7) 
| 108 7 0383 730 CVTLW (SP) +, a16(AP) ; Set terminator file version 
| 8 1 MOVWW OR + (RG) ; Set byte count of name and type 
04 B89 2 A ; MOVCS R2,(R3),84(R9) 3 Set terminator file name and type 
5 ? F 735 100$:  MOVL R8,RO 3; Set status 
g : 3; Return | 
9 7? — ; We have encountered an eilipsis in the pattern string. Save the string 
; f 3 pointers for backup and retry. 
56 2 7D 0393 739 1108: move  R2,R ; Save current string pointers 
8 4 7D 96 740 mova R4,R 3 of both strings 
4 if 99 761 TSTL ; Pattern string null after ellipsis? 
9B —38 BEQL 90$ 3; Ellipsis at end matches all 
FFSE 31 H 4 ez BRW 60$ ; Continue testing 
0 Ao oe? 3; Here when match fails. 
57 D5 O3A0 38 120$: 1816 R7 : Ellipsis found in string? 
8 12 A2 74 BNEQ 140$ ; Branch if yes 
0 06 AS 769 1308: CLRL RO ; Set failure 
0+ ORs Fay sh 
84 Pg ; Here to establish the directory specified by RO-R1 as the terminator. 
58 OE€ 00 O3ay 754 1408: MOVL #14,R8 : Establish return status 
04 C 91 Q3SAA 755 CMPB (APS #4 ; Parameters present? 
8 1F Q3AD 756 BLSSU 150 : Branch if no 
59 OC AC DO O3AF 757 MOVL 12 (AP) RO ; Point to result area descriptor 
69 684 0383 758 CLRW (RI) 3; Set no terminator 
57 05 S303 759 TSTL a7 3; Ellipsis found in string? 
i E 12 0387 760 BNEQ 50$ 3 Branch es 
5¢ 0 7D 0389 761 MOVa RO,R : Copy descr pier to R2-R3 
63 582 A 3A 038C ree LOCC #*A*e" R2,(R3) ; Asterisk wildcard in string? 
9 12 6 76 BNEQ 145$ ; Branch if found 
63 52 5 3A HS 764 LOCC #*A°S" RZ, (R3) : Percent wildcard in string? 
3 612 #O3C6 765 BNEQ 145$ ; Branch if found ‘ 
5 046 CA O3C8 76 BICL2 #4,R8 : Indicate nonwild terminator string 
6 2A «691 8ct8 20S 767 145%: CMPB #*A'e" ,(R3) 3; Leading asterisk wildcard? 
03 13 O3CE 768 BEQL 146$ ; Branch if yes 
58 08 CA O 4 769 BICL #8,R8 3; Indicate non-asterisk terminator 
69 26 8 Al 03D 770 146$: ADDW oR2, (RI) : Set byte count of name and type 
04 89, 6 2 28 0307 (771 MOVC — (R$) ,a4(R9) ; Set terminator file name 
63 5249442E BF DO 03D 27 VL #SA* DIR", (R3) ; Set terminator file type 
10 BC 1 4 tH 77 MOVW #1, a16(APS ; Set terminator file version 
i) E 774 150$: MOVL R8,RO 3; Set return status 
04 O3EA 775 RET ; Return 
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Routine Value: 
True if the candidate file specification is known to follow the 
terminator file specification in an ODS~-2 directory. 


Signals: 
none 


Side Effects: 
none 
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E SCAN, test for seen terminatio a-SEp 1984 3 — SREIMATCH MAR: 1 
3 -SBTTL TERMINATE_SCAN, test for scan termination 
ft p++ 
1 : Functional Description: 

7 ¢ 3 This routine executes a greater-than match on the name, type, and 
Z ; version of a candidate and terminator file specification. 
785 : Calling Sequence: 
f 3 Part s/CALG 
7 8 : Input Parameters: 
789 ; 4(AP) = Length of candidate name and type string. 
790 ; (AP) = Address of candidate name and type string. 
791 ; 12(AP) = Candidate version number. 
792 ; pd = Length of terminator name and type string. 
793 ; (AP) = Address of terminator name and type string. 
re : 4(AP) = Terminator version number. 
796 : Implicit Inputs: 
39 : er none : 
798 ; 
799 ; Output Parameters: 
300 3 none 

02 ; Implicit Outputs: 

87 : none 

05 : Routines Called: 

3 none 


ENTRY TERMINATE_SCAN,“M<R2,R3,R4,R5> 
: Initialize for the Loop. 
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CLRL RO ; Assume failure return 
mova 4(AP) ,R2 : Get candidate string descriptor 
MOVQ = 16( APS RG ; Get terminator string descriptor 
; Main scanning Loop. 
10$: ECL ; Terminator exhausted? 
BLSS 408 : Branch if yes 
MOVZBL (R5)+,R1 ; Get next character in terminator 
CMPB OR, @#*A‘e! : Terminator specifies wild string? 


SE ee Pa 


File specification matchi 15-SEP-1984 23: AX/VMS Mac 36 
TERMINATE SCAN, test for Sten terminatio 4-$ sat} 7 33:35: 3 EBACKUP. Sk SRC JMATCH.MAR; 1 
1 \ BEQL 308 i Branch if y 
7 CMPB Ri, #*A's’ ; Term never "specifies wild character? 
1 Bea, «=s«3008 : Branch 3 yes 
0 DECL :; Cand date bx —2— 
19 A $ BLSS 308 : Branch 
4 40C CMPB R1,(R3)¢ ; Compare tolatneter to candidate 
1 F 840 BeEQL~=Séséd@OS ; Branch if terminator equals candidate 
1A 1} 41 BGTRU 30% ; Branch if terminator greater 
8 1 § eps: MOVL #1,R0 ; Set success return 

1 ? O$: RET 3; Return 

7 45 : Here when terminator is exhausted. 
dS 17 8 Los: TSTL 4 ; Candidate —— 
12 3 og BNEQ 208 ; Branch if n 

tis 39 : The match succeeded. Now the version numbers must be matched. 

D1 18 3g : CMPL 12(AP) ,24(AP) : Compare candidate to terminator 
19 $s 5 BLSS 20$ : Branch if candidate smaller 
04 0422 854 RET ; Return failure 
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-SBTTL PARSE_DIRECTORY, parse directory into components 


; Functional Description: 
This routine parses the directory portion of a file specification. 


—— J— Sequence: 


; Input P reneters: 
Re Length of directory string. 
R5 = Address of directory string. 
R4 = Pointer to result area. 


; Implicit Inputs: 

: none 

; Output Parameters: 
none 


3 inp fete Outputs: 

; Result area contains a count of descriptors followed by one descriptor 
for each component of the directory specification. An ellipsis is 
represented J a one-byte string '.*. If the directory is in UIC 
format, bit 16 of the descriptor count longword is set. 


; Routines Called: 
: none 


; Routine Value: 
none 


3 asquetes 
; one 


; Side u 


8 
————— 


destroyed. 
PARSE_DIRECTORY: 
84 MOVAL (R4)+,R5 ; Keep pointer to result area and bump 
65 04 99 CLAL (RS) ; Clear component count 
901 ; Main scanning Loop. 

3 3A 64 $08 10s: LOCC #*Aa’.*,R2,(R3) : Scan for delimiter 

1 BEQL ; Branch if none found 

C 5 SUBL3 33 (R4)+ : Set length of this component 

DO MOVL R3. (RL) : Set address of this component 
§ 6 90 INCL R5) ; Count this component 

ad 0 E 8 MOVAB rs ; Prune this component from string 
53 1Al 9 ay MOVAB 1(R1),R : 
5 ') 10 CMPL #2 3; At least 2 characters left? 
E 19 044 911 BLSS ; Branch if no 
2E2E BF 6 61 4 912 CMPW (R3),@*A".. : Ellipsis present? 


“ 
“ 
2 
m 
FRRRRRRRRRRRRRRRRRRRRRRRRRRRR RRR 
RM DW — 
‘GD OD CD Cd CD CO Cd CD CD CD OD CD CD CD 
m4 COO OO OMMWCMOOC ~ 


———— 
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File ification matchi 15-SEP-1984 23:37: AX/VMS Macro v04-00 p 
PARSE DIRECTORY. parce directory into co c-sepoloee 93:89:09 POACKUP. SRETRATSN man? st 
1 0448 13 BNEQ ; Branch if no 
C2 044A 13 SUBL2 ° 3; Adjust count 
p 1 MOVL #1, (R4)+ ; Set Length of this component 
1 MOVAW (RE)+, (RA) : Set address of '. 
6 ' 1 INCL (RS) 3; Count this component 
D1 18 688 10$ ; Branch to get next component 
; , 9 ; Were when no *." found in string. 
5 DS 0457 3 § 208: TSTL 2 3; At end of string? 
2 1 0459 BEQL 30$ : Branch if no 
84 p 4 MOva R2,(R4)+ : Set descriptor for last component 
6 D6 5 INCL (RB) : Count Last component 
01 3 dpi ¢ $ 30$: CMPL (R5),#1 3; One component? 
: 12 046 9 BNEQ 70$ 3; Branch if no 
52 O4A 7D 046 4 : mova 4(R5) -R2 3; Get descriptor for first component 
63 52 ef 3a 0469 2 LOCC *a’,* R2,(R3) : In UIC format? 
13° 0 4 4 ? BEQL 70$ ; Branch if no 
' 7 4 ; ; Special processing for UlC-format directory. 
92 AS 01 88 0 * — BISB2 #1,2(R5) : Set UIC format bit 
4 0C AS 9 : 935 MOVAB 12(R5),R4 ; Point to UIC storage 
04 AS D0 0477 9 6 MOVL  #6,4(R5) + Reset component descriptor 
AS 4 4 04678 9 MOVL R4,8(R5) : 
3030 030 F DO O47F 9 8 MOVL #*A'0000',(R4)+ > Initialize to 000000 
9 F BO 0486 9 MOV —R8 
t 0488 940 ADDL R2,R 3; Point past member number 
2 C2 @ +) 941 SUBL RO,R2 ; Get Length of group number 
23 3 049 383 DECL ; Get Length of member number 
2A «(OFF A 1 @ 33 94 CMPB -1(R3) ,#*A's* : Is member number ‘*'? 
A 1 049 944 BNEQ 4 : Branch if no 
74 $225 F 0499 945 MOVW M*A°SZ" ,- (RS) 3 Make it ‘222° in output 
' Vv e* 3 
* 8% 7h Geal 3 min. p 
f ; vone 
74 * D4A3 948 40S: MOVB -(R3),-(R4) ; Copy one digit 
FA 5 F ‘ 8* 949 SOBGTR R 3; Loop until done 
54 OF A 4 D4A 950 50$: MOVAB 15(R5) RG ; Point past group number 
2A 6FF AL O91 «=(Q6AD 81 CMPB ~1(R1) ,#*A's" : Is gr number **'? 
9 1 0481 326 BNEQ 6 3; Branch if no 
74 3525 F ‘ H 95 MOV M*A'SE" ,- (RG) 3; Make it ‘222° in output 
4 5 ‘ 3 See ae M*A'S* ,-(R4) 3 
3 Done 
7% 71 04BC 928 60$: MOVB -(R1) ,=(R4) 3: Copy one digit 
FA 52 F5 O4BF SOBGTR R2,60$ : Loop till done 
05 04C 328 70$: RSB ; Done 
D4C 95 
dat 960 Eud 
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! Psect synopsis ! 
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PSECT name Allocation PSECT No. Attributes 


ABS . 00000000 < 0.) ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS Woee 83 1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
CODE 004C5 ( 1219.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
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! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 


Initialization 0 
Command processing 1 


Pass 
Pass ¢ table sort 


ass 
Symbol table output : 
Psect synopsis output 1 : 
Cross-reference output — 
Assembler run totals 42 
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I 6 
| MATCH File specification matchi 15-SEP- :37: AX/ o v04-00 
VAK-11 Macro Run Statistics es * —— 3 — SREIMATEN aR: 1 
T ki Limit was 1 
28s bytes § popes) © oF virtual nemo used to buffer the satornogtote gode. 

re were pages of s L table sp spece wal toce ed to hold 168 non-local — local symbols. 

source Lines were read in Pass 1, produc object records in Pass 

pages of virtual memory were used to define 7 macros. 
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! Macro Library statistics ! 
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Macro Library name Macros defined 
~S255SDUA28: (SYSLIBISTARLET.MLB;2 — ye 
217 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:MATCH/OBJ=O0BJ$:MATCH MSRCS$:MATCH/UPDATE=(ENHS: MATCH) 
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